home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8705.d64 / <run_stop> (.txt) next >
Commodore BASIC  |  1995-03-30  |  358b  |  13 lines
  1. 100 REM <RUN/STOP>-TASTE ABFRAGEN
  2. 110 POKE788,52:REM RUN/STOP SPERREN
  3. 120 DEF FN DEEK(X)=PEEK(X)+256*PEEK(X+1)
  4. 130 INPUT"LOW-BYTE DER GEWUENSCHTEN ADRESSE";A
  5. 140 PRINT""FN DEEK(A)
  6. 150 PRINT"NOCH EINMAL ? (J/N)"
  7. 160 WAIT198,1:GETZ$
  8. 170 IFASC(Z$)=3ORASC(Z$)=131THEN200
  9. 175 REM 'IF ASC(Z$)=3' IST DER TEST AUF <RUN/STOP>
  10. 180 IFZ$<>"J"THENEND
  11. 190 GOTO130
  12. 200 PRINT"AHA, SCHON WIEDER RUN/STOP[146] GEDRUECKT!":GOTO130
  13.